home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / cprog.EXE / KARKLAS.C < prev    next >
Text File  |  1996-07-05  |  1KB  |  43 lines
  1. #include <stdio.h>
  2. #include <ctype.h>  /* Derleyiciniz bunu gerektirmeyebilir */
  3.  
  4. main()
  5. {
  6. FILE *fp;
  7. char satir[80], kutukismi[24];
  8. char *c;
  9.  
  10.    printf("Kutukismi -> ");
  11.    scanf("%s",kutukismi);
  12.    fp = fopen(kutukismi,"r");
  13.  
  14.    do {
  15.       c = fgets(satir,80,fp);   /* bir satir oku */
  16.       if (c != NULL) {
  17.          veriyi_say(satir);
  18.       }
  19.    } while (c != NULL);
  20.  
  21.    fclose(fp);
  22. }
  23.  
  24. satiri_say(satir)
  25. char satir[];
  26. {
  27. int beyazlar, kars, rakamlar;
  28. int index;
  29.  
  30.    beyazlar = kars = rakamlar = 0; 
  31.  
  32.    for (index = 0;satir[index] != 0;index++) {
  33.       if (isalpha(satir[index]))   /* 1 eger satir[] alfabetik ise   */
  34.           kars++;
  35.       if (isdigit(satir[index]))   /* 1 eger satir[] rakam ise     */
  36.           rakamlar++;
  37.       if (isspace(satir[index]))   /* 1 eger satir[] bosluk ise tab, */
  38.           beyazlar++;               /*           yada yeni satir ise */ 
  39.    }   /* sayan dongunun sonu */
  40.  
  41.    printf("%3d%3d%3d %s",beyazlar,kars,rakamlar,satir);
  42. }
  43.